home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
examples.arc
/
EXAMPL32.PRO
< prev
next >
Wrap
Text File
|
1986-10-07
|
409b
|
17 lines
/* Program 32 */
/*
This program is explained on page 89.
*/
goal
makewindow(1,7,7,"Timer",2,9,12,62),
time(0,0,0,0),
dir("a:\\","*.*",D),
makewindow(1,7,7,"Timer",16,9,7,62),
time(H,M,S,Hundredths),
write(H," hours "),
write(M," minutes "),
write(S," seconds "),
write(Hundredths," hundredths of a second"),nl,
write("Your selection was ",D),nl.